home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #11 / Commodore_Disk_User_Vol.4_11_1991_-.d64 / bud end (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  5.5 KB  |  184 lines
  1. 100 open2,8,2,"0:budget data 2,s,r"
  2. 110 forty=1to192
  3. 120 input#2,y$(ty)
  4. 130 input#2,y(ty)
  5. 140 nextty
  6. 150 forty=1to192
  7. 160 input#2,h$(ty)
  8. 170 input#2,h(ty)
  9. 180 nextty
  10. 190 input#2,gt$
  11. 200 forty=1to12
  12. 210 input#2,ym$(ty)
  13. 220 input#2,ym(ty)
  14. 230 nextty
  15. 240 forty=1to12
  16. 250 input#2,hm$(ty)
  17. 260 input#2,hm(ty)
  18. 270 nextty
  19. 280 forty=1to16
  20. 290 input#2,ys$(ty)
  21. 300 input#2,ys(ty)
  22. 310 nextty
  23. 320 forty=1to16
  24. 330 input#2,hs$(ty)
  25. 340 input#2,hs(ty)
  26. 350 nextty:close2:a$=str$(cm+4):ac$=right$(a$,2)
  27. 360 la$="":lb$=" ":lc$="  ":ld$="  ":le$="    ":pe$=" actual ":pe=1
  28. 370 lf$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":lk$="":sm$="sub [205] month"
  29. 380 st$="subt":mt$="monthly tot":mi=12
  30. 390 ifam=0then470
  31. 400 print"[147]you have amended some figures in the"
  32. 410 print"program . do you wish to store them "
  33. 420 print"(y)es or (n)0 ?"
  34. 430 getqu$:ifqu$=""then430
  35. 440 ifqu$="n"thenprint"are you sure you do not want too (y/n) ?":goto530
  36. 450 ifqu$="y"then480
  37. 460 goto430
  38. 470 goto760
  39. 480 print"   place'data'disc in the disc drive"
  40. 490 print"press  space bar [146] to save the data"
  41. 500 getqu$:ifqu$=""then500
  42. 510 ifqu$<>" "then500
  43. 520 print"[147]saving  budget  data[144]":goto560
  44. 530 getqu$:ifqu$="n"then400
  45. 540 ifqu$="y"then470
  46. 550 goto530
  47. 560 open2,8,2,"@0:budget data,s,w"
  48. 570 print#2,sr
  49. 580 print#2,cm
  50. 590 fora=1to192
  51. 600 print#2,y$(a)
  52. 610 nexta:fora=1to192:print#2,h$(a):next:fora=1to12
  53. 620 print#2,sr$(a)
  54. 630 print#2,ss$(a)
  55. 640 print#2,su$(a)
  56. 650 next a
  57. 660 forb=1to16
  58. 670 print#2,ba$(b)
  59. 680 print#2,bb$(b)
  60. 690 print#2,bc$(b)
  61. 700 next b
  62. 710 print#2,gt(1)
  63. 720 print#2,gt(2)
  64. 730 print#2,gt(3)
  65. 740 close 2
  66. 750 print"[158]":goto470
  67. 760 print"[147]budget calc[157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163]"
  68. 770 print"print out:-":print"                                    [164][164][164][164]";
  69. 780 print"actual figures...................... f1 [146]"
  70. 790 print"                                    [164][164][164][164]";
  71. 800 print"actual & estimated figures.......... f3 [146]"
  72. 810 print"                                    [164][164][164][164]";
  73. 820 print"estimated figures only.............. f5 [146]"
  74. 830 print"                                    [164][164][164][164]";
  75. 840 print"return to the spreadsheet........... f7 [146]"
  76. 850 print:print"                                     [164][164][164]";
  77. 860 print"end budget calc...................... _ [146]"
  78. 870 print"what is your option?"
  79. 880 getqx$:ifqx$=""then880
  80. 890 ifqx$="[136]"thenprint"[145]              please wait":lo=1:load"budget calc",8,1
  81. 900 forty=1to192:ifval(y$(ty))<>y(ty)theny$(ty)="000":y(ty)=0:nextty
  82. 910 forty=1to192:ifval(h$(ty))<>h(ty)thenh$(ty)="000":h(ty)=0:nextty
  83. 920 ifqx$="_"thenprint"[147]":goto1110
  84. 930 ifqx$="[133]"orqx$="[134]"orqx$="[135]"then950
  85. 940 goto880
  86. 950 goto970
  87. 960 end
  88. 970 print"please set up paper feed and turn on"
  89. 980 print"              the printer!"
  90. 990 fortp=1to2000:nexttp
  91. 1000 fort=1to2000:next:print"press any key to continue"
  92. 1010 get qu$:ifqu$=""then1010
  93. 1020 print"[145]                                     [145]"
  94. 1030 open3,4:print#3:ifst=-128then1050
  95. 1040 close3:goto1180
  96. 1050 close3:print"[147]    b u d g e t    p r o g r a m m e"
  97. 1060 print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  98. 1070 print"please turn on the printer if you want"
  99. 1080 print"a printout and press 'space bar'"
  100. 1090 print"or any other to end"
  101. 1100 getwq$:ifwq$=""then1100
  102. 1110 print"[147]    b u d g e t    p r o g r a m m e"
  103. 1120 print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  104. 1130 print"[164][164][164][164][164][164][164] [164][164][164][164][164]       [164]   [164]"
  105. 1140 print"systemsreset[146] ?   ( y[146] / n[146] )"
  106. 1150 getqa$:ifqa$=""then1150
  107. 1160 ifqa$="y"thensys64738
  108. 1170 goto390
  109. 1180 ifqx$="[135]"then1440
  110. 1190 ifqx$="[134]"then1660
  111. 1200 ifqx$="[133]"then1210
  112. 1210 forty=1to192
  113. 1220 ify$(ty)="000"theny$(ty)="   "
  114. 1230 nextty
  115. 1240 forzz=1to16:s$(zz)=mid$(j$(zz),1,13):nextzz
  116. 1250 open3,4:print#3,chr$(14)"    budget plan for"cm+3;"/";ac$;chr$(15);" (actual)";
  117. 1260 print#3,":";chr$(14);mz$;chr$(15):cmd3
  118. 1270 print"[147]";sm$;"   ";m$(1);"  ";m$(2);"  ";m$(3);"  ";m$(4);"  ";m$(5);"  ";
  119. 1280 printm$(6);"  ";m$(7);"  ";m$(8);"  ";m$(9);"  ";m$(10);"  "m$(11);"  ";
  120. 1290 printm$(12);"   ";st$
  121. 1300 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  122. 1310 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print
  123. 1320 f=-11:fors=1to16:f=f+12:nb(s)=nb(s)+1
  124. 1330 prints$(s);:forsp=1to(nb(s)+nc(s)):print" ";:nextsp:print" ";:forpo=ftof+11
  125. 1340 printy$(po);"  ";
  126. 1350 nextpo:print" ";ys$(s):print:nexts
  127. 1360 goto1370
  128. 1370 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  129. 1380 print"[164][164][164][164][164][164][164][164][164][164][164][164][164]":print
  130. 1390 printmt$;lb$;:forpo=1to11:printym$(po);" ";:nextpo:printym$(12);
  131. 1400 printchr$(14)gt$
  132. 1410 printchr$(15)
  133. 1420 print#3:close3
  134. 1430 goto390
  135. 1440 forty=1to192
  136. 1450 ifh$(ty)="000"thenh$(ty)="   "
  137. 1460 nextty
  138. 1470 forzz=1to16:s$(zz)=mid$(j$(zz),1,13):nextzz
  139. 1480 open3,4:print#3,chr$(14)"  budget plan for"cm+3;"/";ac$;chr$(15)"( estimated )";
  140. 1490 print#3,chr$(14);" :";mz$;chr$(15):cmd3
  141. 1500 print"[147]";sm$;"   ";m$(1);"  ";m$(2);"  ";m$(3);"  ";m$(4);"  ";m$(5);"  ";
  142. 1510 printm$(6);"  ";m$(7);"  ";m$(8);"  ";m$(9);"  ";m$(10);"  "m$(11);"  ";
  143. 1520 printm$(12);"   ";st$
  144. 1530 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  145. 1540 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print
  146. 1550 f=-11:fors=1to16:f=f+12:nb(s)=nb(s)+1
  147. 1560 prints$(s);:forsp=1to(nb(s)+nc(s)):print" ";:nextsp:printla$;:forpo=ftof+11:printh$(po);"  ";
  148. 1570 nextpo:print" ";hs$(s):print:nexts
  149. 1580 goto1590
  150. 1590 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  151. 1600 print"[164][164][164][164][164][164][164][164][164][164][164][164][164]":print
  152. 1610 printmt$;" ";lb$;:forpo=1to11:printhm$(po);" ";:nextpo:printhm$(12);
  153. 1620 printchr$(14)gh$
  154. 1630 printchr$(15)
  155. 1640 print#3:close3
  156. 1650 goto760
  157. 1660 forty=1to192
  158. 1670 ifh$(ty)="000"thenh$(ty)="   "
  159. 1680 ify$(ty)="000"theny$(ty)="   "
  160. 1690 nextty
  161. 1700 forzz=1to16:s$(zz)=mid$(j$(zz),1,13):nextzz
  162. 1710 open3,4:print#3,chr$(14)" budget plan for"cm+3;"/";ac$;chr$(15)"  (actual/esti)";
  163. 1720 print#3,chr$(14);" :";mz$;chr$(15):cmd3
  164. 1730 print"[147]";sm$;"   ";m$(1);"  ";m$(2);"  ";m$(3);"  ";m$(4);"  ";m$(5);"  ";
  165. 1740 printm$(6);"  ";m$(7);"  ";m$(8);"  ";m$(9);"  ";m$(10);"  "m$(11);"  ";
  166. 1750 printm$(12);"   ";st$
  167. 1760 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  168. 1770 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]":print
  169. 1780 f=-11:fors=1to16:f=f+12:nb(s)=nb(s)+1:print
  170. 1790 prints$(s);:forsp=1to(nb(s)+nc(s)):print" ";:nextsp:printlb$;:forpo=ftof+11:printy$(po);"  ";
  171. 1800 nextpo:print" ";ys$(s)
  172. 1810 print"              ";:forro=ftof+11:printh$(ro);"  ";:nextro:print" ";hs$(s):nexts
  173. 1820 goto1830
  174. 1830 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  175. 1840 print"[164][164][164][164][164][164][164][164][164][164][164][164][164]":print
  176. 1850 printmt$;" ";lb$;:forpo=1to11:printym$(po);" ";:nextpo:printym$(12);
  177. 1860 printchr$(14)gt$
  178. 1870 printchr$(15)
  179. 1880 print"            ";lb$;:forpo=1to11:printhm$(po);" ";:nextpo:printhm$(12);
  180. 1890 printchr$(14)gh$
  181. 1900 printchr$(15)
  182. 1910 print#3:close3
  183. 1920 goto760
  184.